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- IDENT File: FORREWRSO.MAR Edit: 


—MARAAARARAARALAAAASAAAAALALASSASSSALA SALAS E ALAA SERRE AREA RSA SES SRE ERE E SS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


** 

°f 

:® 

-* 

*® 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
j# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS $0 OFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 18° HEREBY 
:® TRANSFERRED. 

*® 

j* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* CORPORATION. 

:* 
*® 
bad 
*® 
*® 
: 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
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; ¢ ABSTRACT: 


This module co 
REWRITE SEQUEN 
a call to FORS$ 
parameter List 


: ; MAINTENANCE NOTE: " 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


apes setat for the FORTRAN 

ATTED I/0 statement. ‘ M, simply 
ts in RO which describe t 

interprets the ont Be 


~—Dws 


ae ponseie aceé So 


R$$10 
BRW FORSREURITE _S0+2 
This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$SIO_BEG. 
: ; ENVIRONMENT: User access mode; mixture of AST level or not 
: ; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


: ; MODIFIED BY: 
T. Hastings, 29-July-78 


FWN 0 OBNA UE WN  O ODNAUE WN OO OONA UE WR 0 ODO NAUE WI OWOONOULS Wh 


: FACILITY: FORTRAN Support Library - user callable 


SUPT VI BS EB BBE EE ENN NAINA NIAID PUDINPONIPONINPOPI DY 2 2 PO OS Ss 


| 
FORRTL.SRCJFORREWRSO.MAR; 1 a 
- TITLE fs +i alas SO - qotry polos for FORTRAN eae SEQUENTIAL OBJECT=F 


J 14 
point for FORTRAN REWRITE seouen 16-SEP=1 
3; Detailed Current Edit H SEP-1 


Story G-SEP-1986 11:00/18 EFORNTL. SRCIFORREURSO.MAR: 1 


-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 


- Add comment spout yoeters. TNH 23-June-78 
- Pass arg in RO, not ROR, 8 
- up ate version number and copyright notice. JBS 1 mae + 
- Change statement type symbols to be LUBSK... JBS 07-DEC-78 
a -._ JBS 11-DEC-78 
- directive. JBS 22-DEC-78 
- ¥ FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
$ FORSREWRITE_SU, 
SBL 2-May-1979 
1-006 - Remove ail entry Pelote that need object time formatting, 
uct ine them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 
JBS 26-JUN-1979 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$$IO to see how much 1/0 initiation time 
improves. JBS 02-JUL-1979 
1-008 = Do lLikewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 = Remove all entry points and add FORSREWRITE_SO; each entry 
point gets its own module do we can selectively load 
the necessary UDF and REC wetvaee JBS 09-JUL-1979 
9 - New parameter format for FORSSIO_BEG. SBL 5-Dec-1979 


- Change BRW FORS$IO_BEG+2 to JMP G*FORS$IO_BEG+2. JAW 21-Feb-1981 
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1-011 DECLARATIONS ~3Eb-1984 11:00:18 LPORRTL. seCIFORREURSO.MaR:1 29° 


~SBTTL DECLARATIONS 


Ooo 


SOOOCQOQCOOCOCCOOooCOOoOoOoOooooO 


INCLUDE FILES: 


o 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


: EXTERNAL SYMBOLS: 


-OSABL GBL ; Declare all external symbols 
-EXTRN FORS$IO_BEG ; common 1/0 statement processing 


6 
0 
0 91 
0 35 
0 9 
0 94 
0 32 
0 89 
0 98 
0 99 
0 100 ;+ 
0 101 ; The ss references are to make sure the necessary UDF and REC 
0 196 ; modules are loaded. These are the routines which are called through 
132 3; the dispatch tables in FORSSDISPAT. 
0 105 -EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF _wWF9 
06 196 -EXTRN FORSSREC-WXFO, FORSSREC_WXF1, FORSSREC_WXF9 
oS 198 ; The following reference makes sure the format compiler is loaded. 
000 110 -EXTRN FORSSFMT_COMPIL 
000 111 
0000 14g : 
0000 113 ; MACROS: 
0000 114; 
0000 115; NONE 
0000 116; 
0000 117 ; PSECT DECLARATIONS: 
0000 118 ; 
0000 119 
eo 139 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 136 H 
0000 123 ; EQUATED SYMBOLS: 
0000 124 ; 
0000 1$2 
0000 126 
0000 127 ; 
0000 128 ; OWN STORAGE: 
0000 129 ; 
0000 130; NONE 
0000 131; 


—z 


ns is Ss . . 
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FORSREURITE _50 = REWRITE Sequential OBJE ~$eb= 138 99: 60; :18 EFORRTL. SREIFORREWRSO.MAR: 1 ° (4) | 


68 ! ? -SBTTL FORSREWRITE_SO - REWRITE Sequential OBJECT-FORMATTED 
00 135 ;+4 
88 : $ ; FUNCTIONAL DESCRIPTION: | 
8 138 ; Initialize the FORTRAN I/0 system to perfor 
44 133 3 a REWRITE sequential OBJECT-FORMATTED 1/0 statenent. 
0900 141; CALLING SEQUENCE: | 
0000 128 : CALL FORSREWRITE_SO tung. rl.v, format_adr.rt.r | 
$008 18 : , err_adr.j.r C, end_adr.j.rJJ) 
0000 146 ; INPUT PARAMETERS: 
0000 147 ; 
0000 148 ; unit.rl.v Logical unit number | 
0000 149; format ir +f r format string (needs compilation) 
0000 150; err_adr. optional ERR= address 
0000 151; end_adr. optional END= address 
0000 136 ; 
0000 153 ; IMPLICIT INPUTS: 
0000 154 ; 
0000 155; NONE except those used by FOR$$I0O_BEG. 
0000 156 ; 
0000 157 ; OUTPUT PARAMETERS: 
0000 158; 
0000 159; NONE 
0000 160; 
0000 161 ; IMPLICIT OUTPUTS: 
0000 166 3 
0000 163; NONE except those left by FORS$I0_BEG. 
0000 164 ; 
0000 165 ; COMPLETION CODES: 
0000 166 ; 
0000 167 ; NONE 
0000 168 ; 
0000 169 ; SIDE EFFECTS: 
0000 170; 
0000 «6171 ; NONE except those of FORS$IO_BEG. 
0000 He: 3 
0000 173 ;-- 
B808 174 
0000' 0000 175 renneenr es $O:: oe FORSSIO BEG 
50 0100 8F 3C R006 176 OVZWL ATSBSK St_T 
on8 17 ORSV 0B) FMT>, RO ; Statement type 
00000002'GF 17 B00? 178 JMP 6" FORSS10 _BEG+2 ; branch past call mask 
000D 180 
000D = 181 - END 


cr 
CJ 


o VO 
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M14 
FORSREWRITE_SO - entry point for FORTRAN REWRITE SEQUEN bb as tabs 9 90:01:33 AX/VMS Ma 
Symbol table 6-SEP-1984 11:00:18 CFORRTL.SR 
FORSSFMT COMPIL eeeeeeer =X 
FORS$IO_ BEG eeereeee =X 6 
FORSSREC_wWxFO eeereere =X 
SSREC_WXF 1 eeeeeeee xX 0 
ORSSREC_WXF9 eeeeeeee =X 0 
FORSSUDF _WFO eeeeeere =X = 600 
FORSSUDF —WF teeeeeee =X 00 
FORSSUDF WF9 eeeneeee =X 00 
FORSREWRITE_SO 4 RG 01 
FORSV_OBJ_FAT = 00000008 
ISBSK_ST_TY_wxF = 00000000 
teres e ene ese sn eae + 
: Psect synopsis ! 
os os 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( Q.} 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEX 
“FORSCODE 00000000 ¢ 13.) O1¢ 1.) PIC USR CON REL LCL SHR EXE 
tere ren or wee tee eee ear e nee + 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization — 35 00:00:00.08 00:00:01.28 
Command processing 136 00:00:00.60 00:00:03.26 
Pass 1 12 00:00:01.27 00:00:05.45 
Symbol table sort 0 00:00:00.19 00:00:00.51 
Pass 2 46 00:00:00.47 00:00:02.30 
Symbol table output 3 80:00:00: 05 00:00:00.07 
Psect synopsis output 2 88: 60:00°6 00:00:00.02 
Cross~reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 353 00:00:02.66 00:00:12.95 
The working set Limit was 1050 pages. 


6703 bytes (14 pages) of virtua 
There were 20 pages of symbol table space allocated to hold 188 non-local 
181 source Lines were read in Pass 1, produc tng 8 object records in Pass 
9 pages of virtual memory were used to define 2 macros. 


pores wow weer er eee eee neeecemne$} 
: 
teem eer eee em eee er cen were eae + 


Macros defined 


Macro Library name 


“Bee eeeuass :FLORATL OBI ORRTL M8: 2 
$255$DUA28: (SYSLIBISTARLET .MLB; 0 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 


memory were used to buffer the intermediate code. 
,ne 0 local symbols. 


RD NOWRT NOVEC LONG 
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N 
VAX=11 Macrd Run Statistics FORRTL.SRCJFORREWRSO.MAR; 1 | 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORREWRSO/OBJ=OBJ$:FORREWRSO MSRC$:FORREWRSO/UPDATE=(ENH$:FORREWRSO) +LI1 | 
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